home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 326-350 / apd330 / simple player.amos / simple player.amosSourceCode
Encoding:
AMOS Source Code  |  1991-09-27  |  322 b   |  17 lines
  1. Screen Open 0,320,50,2,Lowres
  2. Curs Off 
  3. X:
  4. X$=Fsel$("*.abk","","Select an Amos ","Type Music Bank")
  5. If X$="" Then End 
  6. Cls 0
  7. Locate 0,0
  8. Print "Press mouse Key to choose a new song"
  9. Print "Select Quit to exit"
  10. Load X$
  11. Music 1
  12. Print "Playing ";X$
  13. Amos To Back 
  14. Do 
  15. Multi Wait 
  16. If Mouse Key=1 Then Amos To Front : Goto X
  17. Loop